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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]代码问题

共有6428人关注过本帖树形打印复制链接主题：[原创]代码问题

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

[原创]代码问题 发帖心情

Post By：2014/8/5 13:42:00 [显示全部帖子]

请老师帮个忙，下面是菜单代码，我是想通过菜单点击复制部分列到另外一张表，比如选择”ZJJHB“的某一行后，点击”生成资金申请表“，然后将选择的行的代码列出的列内容复制到”ZJSQB“，然后修改补充数据后保存就形成完整的行。执行后提示红色部分代码有错：谢谢！！

If User.IsRole("录入人") Then

For Each r As Row In Tables("ZJJHB").GetCheckedRows

Dim nma("ZJJHB") As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列

Dim nmb("ZJSQB") As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列

Dim dr As DataRow = DataTables("ZJSQB").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = e.DataRow(nma(i))

Else

MessageBox.show("你没有复制数据的权限!")

End If

[此贴子已经被作者于2014-8-5 13:52:34编辑过]

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 14:52:00 [显示全部帖子]

谢谢老师，还有个问题，小写转大写的代码是什么，，比如A列是小写，在B列自动转为大写金额，请老师编制一下，谢谢

[此贴子已经被作者于2014-8-5 14:52:33编辑过]

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 15:04:00 [显示全部帖子]

老师，我在同表只需复制部分列的内容，下面代码怎么改呢？？

For Each r As Row In Tables("ZJJHB").GetCheckedRows

If User.IsRole("录入人") Then

Syscmd.Row.Clone()

Else

MessageBox.show("你没有复制数据的权限!")

End If

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 15:29:00 [显示全部帖子]

谢谢老师，还有，如果我要记录次数，比如对同一记录复制的次数达3次时，进行提示或限制，代码怎么加呢？？

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 15:56:00 [显示全部帖子]

对了，老师，表达不清楚，是连续复制3次，进行限制，间隔1-2月后则又可复制。

比如我有一个计划表，连续申请了3个月，则第4月不允许再申报，第5月又可以申报

[此贴子已经被作者于2014-8-5 16:26:04编辑过]

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 16:28:00 [显示全部帖子]

谢谢老师

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 16:45:00 [显示全部帖子]

谢谢老师，上面的不能增加行，也不提示信息.我的意思是：比如有个资金计划表，每项付款每个月都要报计划，比如计划单号WC-201408-001，是A项目C单位、D费用，7月是第一次报计划，我增加菜单个按钮“生成单据-重新申报”。如果8月份没有获得付款，则8月份重新申报，直接点击“生成单据-重新申报”则将指定的列的值在同表内复制。依此类推，如果在10月再申报，再不允许申报，提示不能申报，11月份则又可以申报了。就是这个意思。就是这些列{ "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列如果被连续复制或手工录入3个月，则提示信息，不管是复制的是哪一条。

[此贴子已经被作者于2014-8-5 16:52:08编辑过]

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 17:06:00 [显示全部帖子]

可以增加行了，但次数限制不起作用。

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 17:14:00 [显示全部帖子]

比如7月是第一次，8月复制7月出现第二次，9月可能复制7月，也可能复制8月份，但9月份则是出现了第三次，

爱相随

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

加好友

发短信

等级：四尾狐帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/6 13:37:00 [显示全部帖子]

老师，麻烦检查一下这段代码，提示红色部分有错，请帮我改一下，谢谢

If User.IsRole("录入人") Then

For Each r As Row In Tables("ZJJHB").GetCheckedRows

If r.Isnull("JHSPR") = False Then

If R.Isnull("fkbm3") = False Then

If e.DataRow("JZ") = True Then

Dim nma() As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" ,"sh1" } 'A表数据来源列

Dim nmb() As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" ,"SQJHJE" } 'B表数据接收列

Dim dr As DataRow = DataTables("ZJSQB").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

jz = True

Else

MessageBox.show("已经进行过资金付款申请,不能重复付款申请!")

End If

Else

MessageBox.show("已经付过款了,不能重复付款申请!")

End If

Else

MessageBox.show("资金计划表审批流程未完全通过,不能进行付款申请!")

End If

Else

MessageBox.show("你没有资金申报的权限!")

End If

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

总数 23 1 2 3 下一页

主题：[原创]代码问题