给看看呗

我已经将捣乱者“绳之以法”！

呵呵 我想让老师给看看程序

如果楼主是在一个PRG文件中执行导入操作，则按如下代码修改：

……
IF ALLTRIM(sfz)#"身份证号"
    MessageBox("数据错误：EXCEL工作表SHeet1的第一行首列必须是[身份证号]！",48,"EXCEL数据格式错误，导入数据失败！")
    = DataClear(hb1)
    RETURN
……
DO WHILE .t.
   ……
   IF ISNULL(sfz)
       MessageBox("身份证号不能为空！请检查",48,"导入数据失败！")
       = DataClear(hb1)
       RETURN
    ENDIF
    ……
ENDDO
MESSAGEBOX("共转换导入"+ALLTRIM(STR(RECCOUNT()))+"条记录，"+CHR(13)+"请查明是否正确！",0+64,"数据导入完成！")
thisform.label1.Caption=""
= DataClear(hb1)

FUNCTION DataClear(toExcel)
    WITH toExcel
        .ActiveWorkbook.Close
        .Workbooks.close   &&关闭文件并退出EXCEL
        .quit
    ENDWITH
ENDFUNC

如果楼主是在一个表单中，通过单击命令按钮执行的导入，则可以为表单新建一个自定义方法，如：DataClear，并将上述代码中的自定义函数中的代码输入到表单的自定义方法中。将"“= DataClear(bh1)”改为 “= THISFORM.DataClear(bh1)”

* 表单自定义方法，用于退出Excel
LPARAMETER toExcel
WITH toExcel
    .ActiveWorkbook.Close
    .Workbooks.close   &&关闭文件并退出EXCEL
    .quit
ENDWITH

IF ISNULL(sfz)
       MessageBox("身份证号不能为空！请检查",48,"导入数据失败！")
       = DataClear(hb1)
       RETURN
    ENDIF
为什么我表中有数据还提示身份证不能为空？还能继续运行下面的？

我改有程序都不能运行了？？？？？

应该将 ISNULL(sfz)改为 EMPTY(sfz),如：
IF EMPTY（sfz)
    messagebox('....')
    = DataClear(hb1)
    retu
ENDIF

谢谢老师 我还是用自己原来的吧 越来越有问题了。

身份证号是个字符型数据，不仅可能出现null，也可能会出现blank。由于是从EXCEL表格中导入，因此得到各种数据类型都有可能的。