代码如下:
If e.DataCol.Name = "日期" Then
If e.NewValue = Nothing Then
e.DataRow("星期") = Nothing
Else
e.DataRow("星期") = Format(e.DataRow("日期"), "dddd")
End If
Else If (e.DataCol.Name = "星期" AndAlso e.DataRow.IsNull("星期") = False OrElse e.DataCol.Name = "新老客户") AndAlso e.DataRow("新老客户")="老客户" Then
Dim i As Integer = 0
Dim dr As DataRow
SystemReady = False
For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'", "固定排序,排序时间")
If i = 0 Then
dr = e.DataRow
Else
dr = e.DataTable.AddNew
End If
dr("日期") = e.DataRow("日期")
dr("星期") = e.DataRow("星期")
dr("新老客户") = e.DataRow("新老客户")
dr("客户信息") = fdr("综合信息")
dr("时间") = fdr("时间")
dr("支付方式") = fdr("支付方式")
dr("备注") = fdr("备注")
dr("排序时间") = fdr("时间").Substring(3)
dr("签约终止日") = fdr("签约终止日")
dr("月总价") = fdr("月总价")
i += 1
Next
e.DataTable.DeleteFor("日期 is Null")
SystemReady = True
Tables("派工表").sort = "日期,排序时间"
CurrentTable.AddNew(15)
With Tables("派工表")
.Position = .Rows.Count - 1
End With
End If
客户数据表的 签约终止日 没有输入日期,调用到派工表的签约终止日列时,会显示成这样:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq图片20150312121257.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-3/201531212145531406.png)