Foxtable(狐表) → 用户栏目 → 专家坐堂 → 科目导入


  共有18071人关注过本帖树形打印复制链接

主题：科目导入
帅哥哟，离线，有人找我吗？
大红袍
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 11:10:00 [显示全部帖子]

以下是引用发财在2015/10/19 10:57:00的发言：
加表达式列不是数值列没用，如果是数值列 =1+2+3提示错误，又不生效？

 

汗，一列字符列，一列表达式数值列啊
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 11:16:00 [显示全部帖子]

什么转英文？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 11:29:00 [显示全部帖子]

If e.DataCol.IsString Then
    Dim str As String = StrToNarrow(e.newvalue)
    If str.startsWith("=") Then
        e.DataRow(e.DataCol.name) = Eval2(str.replace("=", ""))
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 14:50:00 [显示全部帖子]

保存事件吧，beforeSaveDataRow

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 14:54:00 [显示全部帖子]

看83楼。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 15:04:00 [显示全部帖子]

If e.DataRow.IsNull("附件张数") Then
    MessageBox.Show("附件张数不允许为空!")
e.Cancel = true
End If
If e.DataRow("借方") <> e.DataRow("贷方") Then
    MessageBox.Show("借贷不平衡!")
e.Cancel = true
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 15:10:00 [显示全部帖子]

例子发上来，不可能报错的。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 16:09:00 [显示全部帖子]

那你写到  BeforeAddDataRow   事件

 

Dim r As Row = Tables("表A").Current
If r IsNot Nothing Then
    If r.IsNull("附件张数") Then
        MessageBox.Show("附件张数不允许为空!")
        e.Cancel = True
    End If
    If r("借方") <> r("贷方") Then
        MessageBox.Show("借贷不平衡!")
        e.Cancel = True
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 16:47:00 [显示全部帖子]

上传例子。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/19 17:00:00 [显示全部帖子]


 回到顶部
总数 116 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..12
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询