Foxtable(狐表)用户栏目专家坐堂 → 求助


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

主题:求助

帅哥哟,离线,有人找我吗?
myzzip
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:159 积分:1283 威望:0 精华:0 注册:2013/5/15 14:11:00
求助  发帖心情 Post By:2013/12/19 21:20:00 [只看该作者]

在项目事件中Initialize 中代码如下

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
If lst.Contains("MINE") =False Then  '判断没有包含这个表
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "CREATE TABLE [dbo].[MINE] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[MINE] [nvarchar] (16) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
    cmd.ExecuteNonQuery()
ElseIf lst.Contains("取气明细") =False Then
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "CREATE TABLE [dbo].[取气明细] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[类型] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[日期] [datetime] NULL ,[客户] [nvarchar] (32)COLLATE Chinese_PRC_CI_AS NULL ,[数量] [float] NULL ,[单价] [float] NULL ,[单位] [nvarchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,[金额] [float] NULL ,[编号] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
    cmd.ExecuteNonQuery()
ElseIf lst.Contains("取气表") =False Then
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "CREATE TABLE [dbo].[取气表] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[类型] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[日期] [datetime] NULL ,[客户] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[数量] [float] NULL ,[单价] [float] NULL ,[单位] [nvarchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,[金额] [float] NULL ,[编号] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
    cmd.ExecuteNonQuery()
end if

 

为什么打开项目只创建一个表呀,不能同时创建所有表?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/19 21:26:00 [只看该作者]

 你的if语句用错了

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
If lst.Contains("MINE") =False Then  '判断没有包含这个表
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "CREATE TABLE [dbo].[MINE] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[MINE] [nvarchar] (16) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
    cmd.ExecuteNonQuery()
End If
If lst.Contains("取气明细") =False Then
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "CREATE TABLE [dbo].[取气明细] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[类型] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[日期] [datetime] NULL ,[客户] [nvarchar] (32)COLLATE Chinese_PRC_CI_AS NULL ,[数量] [float] NULL ,[单价] [float] NULL ,[单位] [nvarchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,[金额] [float] NULL ,[编号] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
    cmd.ExecuteNonQuery()
End If
If lst.Contains("取气表") =False Then
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "CREATE TABLE [dbo].[取气表] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[类型] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[日期] [datetime] NULL ,[客户] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[数量] [float] NULL ,[单价] [float] NULL ,[单位] [nvarchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,[金额] [float] NULL ,[编号] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
    cmd.ExecuteNonQuery()
End If

 回到顶部
帅哥哟,离线,有人找我吗?
myzzip
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:159 积分:1283 威望:0 精华:0 注册:2013/5/15 14:11:00
  发帖心情 Post By:2013/12/19 21:28:00 [只看该作者]

这不是一个意思吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/19 21:35:00 [只看该作者]

 不一样,if then 内容1 elseif then 内容2 endif ,只会选择执行任意一个满足条件的 内容


 回到顶部