Dim r As Row = Tables("项目收银管理_客户信息").Current
If r IsNot Nothing Then
If r.IsNull("付款类型") = False Then
Dim mys() As String = r("付款类型").Split(",")
For i As Integer = 0 To mys.Length -1
Tables(e.Form.Name & "_Table1").StopRedraw
Dim myr1 As DataRow = DataTables(e.Form.Name & "_Table1").Find("付款类型 ='" & mys(i) & "'")
If myr1 Is Nothing Then
Dim myr As Row = Tables(e.Form.Name & "_Table1").AddNew
myr("付款类型") = mys(i)
myr("业务单号") = r("业务单号")
myr("所在医院") = Vars("医院")
myr("所在分院") = Vars("分院")
myr("类别") = "项目"
myr("结账单号") = r("结账单号")
myr("客户编号") =r("客户编号")
myr("姓名") = r("姓名")
myr("联系电话") =r("联系电话")
myr("日期") =Date.today
myr.Save
End If
Tables(e.Form.Name & "_Table1").ResumeRedraw
Next
End If
End If
这段代码用了近一年了 但是今日突然出现问题
实在找不出原因所在了