专家坐堂-按钮没有显示在正确的位置Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮没有显示在正确的位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99685)

-- 作者：zhangjian222200
-- 发布时间：2017/4/24 20:45:00
-- 按钮没有显示在正确的位置

“深度服务”、“年度服务”按钮应该显示在文字的下方，为什么显示到上面去了

此主题相关图片如下：qq图片2017042420424777.png

页面代码：
Dim e As RequestEventArgs = args(0) \'我的服务
Dim wb As New weui
With wb.AddTabBar("", "tb1",0) \'使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","/index.htm") \'.Attribute = ""
.AddButton("bt2","设置","./images/b.png","/per_chakanshezhi.htm")
.Addpage("bt3","当前","./images/c.png")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
\'.Attribute = "style=\'height:55px\'"
End With
\'wb.AddPageTitle("","pageheader","郎窝网","本地自助服务,为您婚恋交友之路保驾护航")
With wb.AddArticle("bt3","ar1")
.AddImage("./images/langwo/logo1.jpg")
.Attribute = "style=\'padding:0em;\'"
End With
wb.AddForm("bt3","form1","myservice.htm")

Dim huiybh As String = e.cookies("ibh") \'从cookie取会员,编号
Dim username As String = e.cookies("isj") \'从cookie取会员,手机号
Dim xingb As String = e.cookies("ixb") \'从cookie取会员,性别
Dim huiydj As String = e.cookies("idj") \'从cookie取会员,等级

Dim jinrshiy As String \'定义邀TA加微信,今日使用次数
Dim jinrshengy As String \'定义邀TA加微信,今日剩余次数

Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = \'" & username & "\'")
If dr IsNot Nothing Then
jinrshiy = dr("免费邀ta次数_今日使用")
jinrshengy = dr("免费邀ta次数_今日剩余")
Else
msgbox("请稍后查看基础资料!")
End If

With wb.AddInputGroup("form1","ipg1","我的服务")
With .AddInput("hydj","会员等级","text")
.Value = huiydj
.Readonly= True
End With
With .AddInput("jryy","今日已用","text")
.Value = jinrshiy & "次免费邀TA加微信"
.Readonly= True
End With
With .AddInput("jrsy","今日剩余","text")
.Value = jinrshengy & "次免费邀TA加微信"
.Readonly= True
End With
If huiydj = "中级会员" OrElse huiydj = "高级会员" Then
With .AddInput("yhqx","优惠期限","text")
.Value = huiydj
.Readonly= True
End With
With .AddInput("fwsy","服务剩余","text")
.Value = huiydj
.Readonly= True
End With
End If
If huiydj = "女" Then
With .AddInput("hbje","红包金额","text")
.Value = huiydj
.Readonly= True
End With
End If
End With

With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "红包转到支付宝","submit")
End With

wb.InsertHTML("bt3","1.普通会员:每天免费3次.")
wb.InsertHTML("bt3","2.中级会员:每天免费9次.")
wb.InsertHTML("bt3","3.免费升级中级会员:条件符合自动升级为中级会员.")

With wb.AddButtonGroup("form1","btg2",False)
.Add("btn1", "年度服务","submit")
.Add("btn1", "深度服务","submit")
End With
e.WriteString(wb.Build) \'生成网页

--  作者：有点蓝
--  发布时间：2017/4/24 20:48:00
--
With wb.AddButtonGroup("","btg2",False)