看表结构：
此主题相关图片如下：qq图片20150309121038.png
再看代码：
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 = "星期" 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("排序时间") = e.DataRow("时间").Substring(3)
i += 1
Next
e.DataTable.DeleteFor("日期 is Null")
SystemReady = True
CurrentTable.AddNew(5)
End If
这段代码实现功能是：当输入日期和新老客户后，会自动从 客户数据 表调用 时间，并取这个时间列3个字符后面的内容附值给 排序时间列
问题是取出客户数据的时间值列的数据后，当附值给排序时间列时，出现问题了。 排序时间都是第一行的那个时间， 都是13:30。
我的代码问题出现在哪儿呢？
加好友 
发短信
Post By：2015/3/9 12:19:00 [显示全部帖子]
