以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列数据代码录入ip  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68648)
--  作者：wgs813
--  发布时间：2015/5/21 22:13:00
--  列数据代码录入ip
Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP 
OutPut.Show( HostName )  \'本机机器名 
OutPut.Show(IPAdress.ToString )  \'本机的IP

 

\'这段是生成机器名称和机器IP的代码，如果说我现有一(表A)其一列名为机器IP，一列为机器名称，我现在执行上一段代码的是够，两列自动录入数据，该如何让编写呢？

用DataRowAdding事件，在上述代码后加：

e.DataRow("机器IP") = HostName

e.DataRow("机器名称") = IPAdress.ToString

 

 

 

错误提示：调用的目标发生了异常。
--  作者：大红袍
--  发布时间：2015/5/21 22:16:00
--  

1、在afteropenproject加入代码

 

Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP 
vars("IP") = HostName
vars("名称") = IPAdress.ToString
 
2、DataRowAdding事件
 

e.DataRow("机器IP") = vars("IP")

e.DataRow("机器名称") = vars("名称")
--  作者：wgs813
--  发布时间：2015/5/21 22:23:00
--  

万分感谢