.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2016.7.29.1
错误所在事件：
详细错误信息：
无法从指定的数据表中删除。
DataTables("数据表").datarows.clear()
For Each dr As DataRow In DataTables("一万五千人员核算表").DataRows
If dr.IsNull("人员编号") Then Continue For
Dim vr As DataRow
If dr("投入方式") = "返一万" Then
vr = DataTables("返一万").DataRows(0)
Else
vr = DataTables("返五千").DataRows(0)
End If
Dim ld As Date = dr("第一次收益时间")
For Each dc As DataCol In vr.DataTable.DataCols
Dim dr2 As DataRow = DataTables("数据表").AddNew()
dr2("人员编号") = dr("人员编号")
dr2("人员姓名") = dr("人员姓名")
dr2("收据单号") = dr("收据单号")
dr2("投入金额") = dr("投入金额")
dr2("电话号码") = dr("电话号码")
dr2("开户行") = dr("开户行")
dr2("银行卡号") = dr("银行卡号")
dr2("投入点位") = dr("投入点位")
dr2("投入方式") = dr("投入方式")
dr2("收益日期") = ld
dr2("收益金额") = dr("投入点位") * vr(dc.name)
ld = ld.AddDays(5)
Do While ld.Day Mod 5 <> 0
ld = ld.AddDays(1)
Loop
Next
Next
加好友 
发短信
Post By：2016/9/30 16:34:00 [只看该作者]
