以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]公式如何修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107140)
--  作者：大雪山
--  发布时间：2017/9/22 6:08:00
--  [求助]公式如何修改

导入时给数值项自动赋值，公式如何修改？

 

Dim dt As DataTable = DataTables("打印")
Dim pdr As DataRow
dt.DataRows.Clear
For Each dr As Row In Tables("student").Rows
   
        pdr = dt.AddNew
        pdr("学号") = dr("xhdm")
Next

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:数据.table
--  作者：有点甜
--  发布时间：2017/9/22 8:49:00
--  

你要给数值列赋值什么？

 

Dim dt As DataTable = DataTables("打印")
Dim pdr As DataRow
dt.DataRows.Clear
For Each dr As Row In Tables("student").Rows
    pdr = dt.AddNew
    pdr("学号") = dr("xhdm")
    pdr("数值") = 123456
Next


 
--  作者：大雪山
--  发布时间：2024/7/11 9:10:00
--  
问题：第二列多一个括号如何去除，麻烦老师优化，谢谢

图片点击可在新窗口打开查看

\'\'\'...
For Each dr As DataRow In DataTables("表A").DataRows
Dim str As String =dr("第一列")
Dim i As Integer=str.IndexOf("(")
Dim j As  Integer=str.IndexOf(")")
Output.Show(i)
If i >0 Then
dr("第二列")=str.Remove(i,j-i)
Else
dr("第二列")=dr("第一列")
End If
Next
--  作者：有点蓝
--  发布时间：2024/7/11 9:23:00
--  
For Each dr As DataRow In DataTables("表A").DataRows
if dr.isnull("第一列")=false
dr("第二列")=dr("第一列").split("(")(0)
end if
Next