主题：[求助] 函数转换

把这个转换一下 

Dim grtcd  As String = dt.SQLCompute("个人提成点","职称 = '" & zc &  "'")

dt.SQLCompute("个人提成点","职称 = '" & zc &  "'") 结果是  {0.16,0.19,0.22,0.25,0.3,0.35,0.4,0.45}

Dim grskd  As String = dt.SQLCompute("个人扣除数","职称 = '" & zc &  "'")
Dim grtc1() As Double = {0.16,0.19,0.22,0.25,0.3,0.35,0.4,0.45}
Dim grtc2()  As Double = {0,300,900,1800,3800,6300,9300,12800} 

Dim dr As DataRow = dt.find("职称 = '" & zc & "'")

Dim grtcd  As String = dr("个人提成点")

Dim grskd  As String = dr("个人扣除数")
Dim grtc1() As Double = grtcd.split(",")
Dim grtc2()  As Double = grskd.split(",")