- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码重排始终不能对齐 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175085)
-- 发布时间：2022/2/19 9:03:00
-- [求助]代码重排始终不能对齐
此主题相关图片如下：企业微信截图_20220219090103.png
With wb.AddInputGroup("form1","ipg1","签到信息")
.AddInput("客户","客户","text").Value = pr("客户")
.AddInput("日期","日期","date").Value = pr("日期")
With .AddInput("订单编号","编号","text")
.Value = pr("订单编号")
.Readonly = True
End With
With.AddInput("qdr","签到人","Text")
.Value = _username
.Readonly = True
End With
End With
这段代码始终不能对齐，请问是什么原因呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.txt |
-- 发布时间：2022/2/19 9:18:00
--
我也遇到过，一些循环/判断语句，不能靠左按缩进对齐。
举个例子（这个代码自然是可以正确对齐的，只是说明一下哪里没对齐）：
dim i as integer
for each r as row in tables("表").rows
if r("结论") = "正确" then
i+=1
end if
next //最后这个next不能靠左和前面的for对齐
-- 发布时间：2022/2/19 9:20:00
--
楼主代码我测了，确实不能对齐
此主题相关图片如下：snipaste_2022-02-19_09-19-18.png
-- 发布时间：2022/2/19 10:05:00
--
缺少必要的空格
With
.AddInput("qdr","签到人","Text")
或者多了些空格
for each r as row in tables("表").rows
if r("结论") = "正确" then
等新版的代码编辑器吧，这些都不是问题了
-- 发布时间：2022/2/19 10:13:00
--
收到，谢谢，