Foxtable(狐表) → 用户栏目 → 专家坐堂 → 增加临时列的问题


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

主题：增加临时列的问题
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1381 积分：9209 威望：0 精华：0 注册：2020/11/4 22:15:00 		增加临时列的问题  发帖心情 Post By：2023/4/11 9:37:00 [只看该作者]

需求：如果表A没增加临时列，新增临时列AA、BB、CC、DD，并把多列的字段值折分到AA、BB、CC、DD，如果表A已新增临时列AA、BB、CC、DD，不执行增加临时列，
如果表A已新增临时列AA、BB、CC、DD为空，请折分，不为空不用折分。

执行下面，报错AA、BB、CC、DD不是表A的列，dr变量已保护

'Dim r As Row = Tables("表A").Current
'If r.IsNull("AA") OrElse r.IsNull("BB") OrElse r.IsNull("CC") OrElse r.IsNull("DD") Then
'DataTables("表A"").DataCols.Add("AA", GetType(String))
'DataTables("表A"").DataCols.Add("BB", GetType(String))
'DataTables("表A"").DataCols.Add("CC", GetType(String))
'DataTables("表A"").DataCols.Add("DD", GetType(String)) 

''Dim ssr() As String = dr("多列").split("\")
''    dr("AA") = ssr(0)
''    dr("BB") = ssr(1)
''    dr("CC") = ssr(2)
''    dr("DD") = ssr(3)
''Next
    
'Else
     
    
'End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/11 9:44:00 [只看该作者]

if DataTables("表A"").DataCols.contains("AA") = false then 如果没有AA列
DataTables("表A"").DataCols.Add("AA", GetType(String)) 就添加
end if
if DataTables("表A"").DataCols.contains("BB") = false then 如果没有BB列
DataTables("表A"").DataCols.Add("BB", GetType(String)) 就添加
……
Dim r As Row = Tables("表A").Current
If r.IsNull("AA") OrElse r.IsNull("BB") OrElse r.IsNull("CC") OrElse r.IsNull("DD") Then
Dim ssr() As String = r("多列").split("\")
r("AA") = ssr(0)
……
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03418 秒, 4 次数据查询