[求助]这句代码如何写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这句代码如何写

共有2588人关注过本帖树形打印复制链接主题：[求助]这句代码如何写

czgtiger

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00

[求助]这句代码如何写 发帖心情

Post By：2014/8/17 14:18:00 [只看该作者]

两个表，A和B,在A表中的datacolchanged 事件中，写如下代码：dim dr as datatables("B").datarows()

电脑信息给出错误显示，通不过。现在我要用dr来引用B表中的行，这句代码如何编写呢？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/17 14:28:00 [只看该作者]

Dim drs As Object = DataTables("表B").datarows
For Each dr As DataRow In drs
'代码
Next

czgtiger

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00

Post By：2014/8/17 16:48:00 [只看该作者]

If e.DataCol.name="单价" Then
    Dim dr As Object = DataTables("订单").datarows
    If dr("合同模式") = "销售" Then
     e.DataRow("单价") = dr("单价")
     e.DataRow("附加费") = dr("附加费")
   End If
End If

运行时，出现如下提示

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.8.12.1
错误所在事件：表，订单主表，DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“合同模式”到类型“Integer”的转换无效。
输入字符串的格式不正确。

这是什么原因？

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/17 16:53:00 [只看该作者]

没有你这种语法，datarows返回的是订单表的全部的行

Dim dr As Object = DataTables("订单").datarows
If dr("合同模式") = "销售" Then

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/17 16:53:00 [只看该作者]

你是不是想用find函数，查找某一行？

http://www.foxtable.com/help/topics/0396.htm

czgtiger

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00

Post By：2014/8/18 1:09:00 [只看该作者]

我明白了，谢谢两位大大

下一主题 >> << 上一主题

主题：[求助]这句代码如何写