遇到了空怎理啊？
在取程中可能有些NULL候怎理呢？有人做0理，能的一么？。

VB code

Private Sub Command4_Click()Dim sc As Integer    If Text1(14).Text = "" Or Text1(15).Text = "" Then 'ÅДàÊÇ·ñÓДµ“þä?ÈëÒÔ¼°ÊÇ·ñÖØÑ}SAVE        sc = MsgBox("Please capture WYKO data first.", vbOKOnly, "Warning : ")    Else            Dim conn As New ADODB.Connection    Dim rs As New ADODB.Recordset    Dim wls_l_num, wls_es_num As String    Dim str1, str2, str3 As String            str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"        str2 = "Data Source=C:\WYKO Data Capture\WYKOData.mdb;"        str3 = "Jet OLEDB:Database Password="                conn.Open str1 & str2 & str3        strSQL = "select * from WYKOData"        rs.Open strSQL, conn, 3, 3                rs.AddNew        rs!Wafer_Number = Text1(6).Text        rs!Min = Text1(0).Text        rs!Max = Text1(1).Text        rs!Average = Text1(3).Text        rs!Range = Text1(4).Text        rs!Std_Dev = Text1(4).Text        rs!S_Number = Text1(5).Text        rs!Meas_Count = Text1(7).Text        rs!Meas_Wafers = Text1(8).Text        rs!Wafers_Lot = Text1(9).Text        rs!Wafer1_meas1 = Text1(10).Text        rs!Wafer1_meas2 = Text1(11).Text        rs!Wafer2_meas1 = Text1(12).Text        rs!Wafer2_meas2 = Text1(13).Text        rs!Wafer_Data = Text1(14).Text        rs!Wafer_Time = Text1(15).Text        rs!Wavelength = Text1(16).Text                rs.Update        rs.Close        conn.Close                MsgBox ("Data Saved.")        Adodc1.Refresh        MSHFG1.Refresh                        For i = 0 To 16                 '·ÀÖ¹ÖØÑ}ä?Èë                Text1(i).Text = ""            Next      End IfEnd Sub

[解决办法]
rs!Min = Text1(0).Text & “”
Text1(0).Text=rs!Min & “”
貌似这么做