[浏览完整版]
标题：外部数据表 的问题
11楼
小狐 发表于：2008/11/20 0:53:00
此主题相关图片如下：1.jpg
12楼
程兴刚 发表于：2008/11/20 0:56:00奇怪，我刚刚打开过，也是今晚下载的，以前的在移动硬盘里面。
不过做了很久了，难道是版本不兼容？您是啥时候的版本？用旧的版本打开试试！
13楼
czy 发表于：2008/11/20 1:00:00放在DataColChanged事件中
If e.DataCol.Name = "入库单编号"
If e.NewValue Is Nothing Then
e.datarow("金额") = Nothing
else
e.datarow("金额") = datatables("入库明细").compute("sum(金额)","[入库单编号]= '" & e.NewValue & "' ")
end if
end if
14楼
czy 发表于：2008/11/20 1:04:00以下是引用小狐在2008-11-20 0:51:00的发言：
老大，试了一下不行啊，跳出一个出错的界面
此主题相关图片如下：1.jpg
老大，试了一下不行啊，跳出一个出错的界面
此主题相关图片如下：1.jpg[此贴子已经被作者于2008-11-20 0:53:26编辑过]
增加行前是不能用这样的代码的，新增行时数据并未真正生成，估计不报错也不会有结果。
15楼
小狐 发表于：2008/11/20 1:07:00好像也不行啊，这个"入库单编号"是自动生成的
DataColChanged 是列值 变动后 才触发的，如用没有变动呢
16楼
czy 发表于：2008/11/20 1:12:00自动生成也是变动了，应该没有问题的。
如果是自动生成多列中的数据，我不知道上述代码行不行，不过可以试试这个：
If e.DataCol.Name = "入库单编号"
If e.datarow("入库单编号") Is Nothing Then
e.datarow("金额") = Nothing
else
e.datarow("金额") = datatables("入库明细").compute("sum(金额)","[入库单编号]= '" & e.datarow("入库单编号") & "' ")
end if
end if
如果是自动生成多列中的数据，我不知道上述代码行不行，不过可以试试这个：
If e.DataCol.Name = "入库单编号"
If e.datarow("入库单编号") Is Nothing Then
e.datarow("金额") = Nothing
else
e.datarow("金额") = datatables("入库明细").compute("sum(金额)","[入库单编号]= '" & e.datarow("入库单编号") & "' ")
end if
end if
17楼
程兴刚 发表于：2008/11/20 1:17:00以下是引用czy在2008-11-20 1:00:00的发言：
放在DataColChanged事件中
If e.DataCol.Name = "入库单编号"
If e.NewValue Is Nothing Then
e.datarow("金额") = Nothing
else
e.datarow("金额") = datatables("入库明细").compute("sum(金额)","[入库单编号]= '" & e.NewValue & "' ")
end if
end if
我在增加行事件中没有设置这一段代码吧？我怎么找不到？
18楼
czy 发表于：2008/11/20 1:24:00以下是引用程兴刚在2008-11-20 1:17:00的发言：
我在增加行事件中没有设置这一段代码吧？我怎么找不到？
呵呵，我搞错了，我不知道你俩是在讨论你那个项目。
19楼
程兴刚 发表于：2008/11/20 1:26:00哦，我说呢，我又使劲找了一遍，不过也好，多给我一次掌握的机会，您这个提议我也需要学习！
20楼
小狐 发表于：2008/11/20 10:59:00奇怪，没有数据结果啊
狐表中有没有关联表变动的触发事件设置
[此贴子已经被作者于2008-11-20 11:00:47编辑过]