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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 列数据代码录入ip

共有2592人关注过本帖树形打印复制链接主题：列数据代码录入ip

wgs813

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

等级：幼狐帖子：80 积分：730 威望：0 精华：0 注册：2014/11/27 17:25:00

列数据代码录入ip 发帖心情

Post By：2015/5/21 22:13:00 [只看该作者]

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

错误提示：调用的目标发生了异常。

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

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

等级：幼狐帖子：80 积分：730 威望：0 精华：0 注册：2014/11/27 17:25:00

Post By：2015/5/21 22:23:00 [只看该作者]

万分感谢

主题：列数据代码录入ip